function [Event_Rate_Mean_Dist] = Event_Rate_Mean_Dist_One_Animal_One_Dose(Data_Summary, drug, animalID)

for n=1:size(Data_Summary,2)
    if contains(Data_Summary(n).drug, drug) && contains(Data_Summary(n).animalName, animalID)
        Event_Rate_Dist(n,:)=Data_Summary(n).BinCounts_Session1_Event_Rate_Proportion;
    end
end
for n=1:size(Event_Rate_Dist,1)
    if max(Event_Rate_Dist(n,:))==0
        Event_Rate_Dist(n,:)=nan;
    end
end
for n = 1:size(Event_Rate_Dist,2)
    Event_Rate_Mean_Dist(1,n) = mean(Event_Rate_Dist(:,n), 'omitnan');
end

end